home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume90 / util / st / part01 / inputhandler.a < prev    next >
Text File  |  1990-06-04  |  418b  |  26 lines
  1. ; Input Handler
  2. ; created by John Schultz, 17-Sep-89
  3.  
  4.     section    "TotalInput",code
  5.  
  6.     xdef    _totalinput
  7.  
  8. ; Input event structure offsets
  9.  
  10. IECLASS    equ    4
  11. IECODE    equ    6
  12.  
  13. ; A0 = inputevent pointer
  14. ; A1 = data pointer
  15.  
  16. _totalinput:
  17.     cmp.b    #1,IECLASS(A0)    ; event->ie_Class == IECLASS_RAWKEY ?
  18.     bne.b    notrawkey
  19.     move.w    IECODE(A0),(A1)    ; raw = event->ie_Code
  20. notrawkey:
  21.     moveq.l    #0,D0        ; don't pass events to intuition
  22.     rts
  23.  
  24.     END
  25.  
  26.